home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / Think Class Libraries / SAT-TCL 1.0b2 / SAT-TCLBouncingDemo ƒ / CBDApp.p < prev    next >
Encoding:
Text File  |  1996-06-10  |  1.6 KB  |  69 lines  |  [TEXT/PJMM]
  1. {****************************************************}
  2. {}
  3. {    CBDApp.p                                                                                                        }
  4. {}
  5. {    Application class for BD.                                                                                }
  6. {}
  7. {    Copyright © 1996 by Patrick C Hew. All rights reserved.                                }
  8. {}
  9. {****************************************************}
  10.  
  11.  
  12. unit CBDApp;
  13.  
  14. interface
  15.  
  16.     uses
  17.         TCL, BDIntf;
  18.  
  19. implementation
  20.  
  21.     const
  22.         kExtraMasters = 4;            (* number of extra master pointer blocks *)
  23.         kRainyDay = 32000;            (* total rainy day memory reserve size     *)
  24.         kCriticalBalance = 30000;    (* portion of rainy day for critical operations *)
  25.         kToolboxBalance = 20000;    (* portion of rainy day for toolbox reserve *)
  26.  
  27.  
  28. {****************************************************}
  29. {}
  30. {    IBDApp                                                                                                            }
  31. {}
  32. {    Initialize an BD Application object.                                                                    }
  33. {}
  34. {****************************************************}
  35.  
  36.     procedure CBDApp.IBDApp;
  37.  
  38.         var
  39.             theBDDirector: CBDDirector;
  40.  
  41.     begin { IBDApp }
  42.         IGameApp(kExtraMasters, kRainyDay, kCriticalBalance, kToolboxBalance);
  43.  
  44.         new(theBDDirector);
  45.         theBDDirector.IBDDirector(SELF);
  46.     end; { IBDApp }
  47.  
  48.  
  49. {****************************************************}
  50. {}
  51. {    DoCommand                                                                                                    }
  52. {}
  53. {    Implements a very simple About box.                                                                }
  54. {}
  55. {****************************************************}
  56.  
  57.     procedure CBDApp.DoCommand (theCommand: longint);
  58.  
  59.     begin { DoCommand }
  60.         if theCommand = cmdAbout then begin
  61.             SATReportStr('Sprite Animation Toolkit 2.3b4 used with the THINK Class Library 1.1.2 (Pascal).');
  62.         end { if }
  63.         else begin
  64.             inherited DoCommand(theCommand);
  65.         end; { else }
  66.     end; { DoCommand }
  67.  
  68.  
  69. end. { CBDApp }